﻿<!-- #include file="mymin.asp" -->
<%
Call Head()
w "<card title='续写文章'><p>"

dim classid,id
classid=Request("classid")
id=Request("id")
if classid="" or IsNumeric(classid) = False or id="" or IsNumeric(id)=False then Call error("ID错误！")

dim test
test=LCase(Request("test"))

if test="" then Call error("文章内容不可以为空！")

if len(test)>20000 then Call error("文章内容不要超过20000字，分多篇写。这有助于提高效率！")

dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select test from 74hu_article where id="&id,myconn,1,3
rs("test")=rs("test") & test
rs.update
rs.close
set rs=nothing

w "文章续写成功!"
%>
<br/>----------<br/>
<br/>
<a href="adminsmscl.asp?sid=<%=sid%>&amp;id=<%=classid%>">[返回文章]</a><br/>
<a href="wzclass.asp?sid=<%=sid%>">[文章分类]</a>
<%Call Last%>
